﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Redirect("~/list.aspx")
    End Sub

    Protected Sub sumbt_Click(sender As Object, e As EventArgs) Handles sumbt.Click
        Dim x As Single
        Dim y As Single

        x = CSng(tb_top.Text)
        y = CSng(tb_bot.Text)

        Dim sum As Single

        sum = x + y

        lbl.Text = "Your total sum is " & sum
    End Sub
End Class